home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Online / netspeechd / speechd.p < prev    next >
Encoding:
Text File  |  2001-07-31  |  4.5 KB  |  209 lines
  1. ; netSpeechD by (c) Cyborg 2001
  2. ; 
  3. ; (c) 1999 Cyborg 
  4.  
  5.     {* Include sys:coder/preass/Options.p *}
  6.  
  7.     {* String: Version="$VER: speechd 1.0 Cyborg 2001"*}
  8.  
  9.     {* Structure sockaddr_in(),sin_len(BYTE),sin_family(BYTE),sin_port(WORD)
  10.                  sin_addr(LONG),sin_zero[8]*}
  11.     
  12.     {* Structure Sockaddr(),SA_Len(BYTE),SA_Family(BYTE),SA_Data[14]*}
  13.  
  14.     {* Structure Hostent,H_name(CHAR),h_aliases(APTR),h_addrtype(LONG)
  15.                  h_length(LONG),H_addr_list(CHAR)*}
  16.  
  17.     {* Structure servent,s_name(CHAR),s_aliases(APTR),s_port(WORD),s_proto(CHAR)*}
  18.  
  19.     {* Const AF_INET=2,INADDR_ANY=0
  20.              Sock_STREAM=1
  21.              SOCK_DGRAM=2
  22.              FIONBIO=$8004667e*}
  23.  
  24.     {* incVar: Addr,Zeiger*}
  25.  
  26.     {* NewProc=Fillbuffer[][A0,d0,d1]*}
  27.     {* NewProc=getFilename[][]*}
  28.     {* NewProc=ASC2Zahl[][a5]*}
  29.  
  30. GetSigs[]:
  31.     Signals=SetSignal(0,0)
  32.     Signals==Signals&#$F000
  33.     {* Return Signals*}
  34.  
  35. FillBuffer[a0,d0,d1]:
  36.     subq.l #1,d1
  37. .l1:move.b d0,(a0)+
  38.     dbra d1,.l1
  39.     rts    
  40.  
  41. {* IncBlock: Portname,20*}
  42.  
  43. Start:
  44.     UsePort==21846
  45.     Filename=="21846"
  46.     If GetFilename()#0
  47.      {
  48.        UsePort=asc2zahl(&Filename)
  49.      }
  50.     Portname=="speechd."+Filename
  51.     If FindPort(Portname)#0 
  52.       {
  53.        printf("Dämon läuft schon.\n")
  54.        {* return *}
  55.       }
  56.     If (MPort=PortUp(Portname))=0
  57.      {
  58.       Printf("speechd Port NICHT VERFÜGBAR!\n")
  59.       {* Return 0*}
  60.      }
  61.     {* FLUSH *}
  62.     DeineNummer==0
  63.     Printf("speechd gestartet\n")
  64.  
  65.     If (socket=TCP_Socket(AF_INET,SOCK_DGRAM,0))#-1
  66.      {
  67.         #AF_Inet=>sockaddr_in.sin_family
  68.          UsePort=>sockaddr_in.sin_port
  69.      #INADDR_ANY=>sockaddr_in.sin_addr
  70.              #16=>sockaddr_in.sin_len
  71.         ret=TCP_Bind(Socket,&Sockaddr_in,sizeof(sockaddr_in))
  72.         If Ret=-1
  73.          {
  74.            Printf("speechd - Bind-Error \n")
  75.            TCP_CloseSocket(Socket)
  76.            PortDown(mPort)
  77.            {* Return 0*}
  78.          }
  79.          While GetSigs()=0
  80.           {
  81.            Sockaddrlen==16
  82.            {* incblock: zwischenpuffer,5000*}
  83.            Fillbuffer(&Zwischenpuffer,0,5000)
  84.            res1=TCP_RecvFrom(Socket,&ZwischenPuffer,3000,0,&Sockaddr_in,&sockaddrlen)
  85.            res2=TCP_Errno()
  86.            If res2=0 or res1>-1 
  87.             {
  88.               If (sh=open("speak:",#MODE_OLD))#0
  89.                {
  90.                  Write(SH,&Zwischenpuffer,res1)
  91.                  close(SH)
  92.                }
  93.             }
  94.            If ret=-1
  95.             {
  96.               Delay(25)
  97.               RES=TCP_Errno()
  98.               Printf("speechd - Accept-Error %ld\n",*res)
  99.             }
  100.           }
  101.       {* FLUSH *}
  102.       Printf("speechd - Dämon beendet sich jetzt\n")
  103.       TCP_CloseSocket(Socket)
  104.      }
  105.     PortDown(mPort)
  106.     {* Return *}
  107.  
  108.  
  109. GetFilename:
  110.     {* IncBlock: Filename,256*}
  111.     {* IncVar: NextArg*}
  112.         cmpi.l #0,laenge
  113.         beq .l13
  114.         cmpi.l #1,laenge
  115.         beq .l13
  116.         suba.l a2,a2
  117.         suba.l a1,a1
  118.         Move.l Adresse,a0
  119. .l1:    cmpi.b #`"`,(a0)
  120.         beq .l10
  121.         cmpi.b #` `,(a0)+
  122.         beq .l1
  123.         lea -1(a0),a1
  124. .l2:    cmpi.b #`"`,(a0)
  125.         beq .l11
  126.         cmpi.b #$0a,(a0)
  127.         beq .l12
  128.         cmpi.b #$00,(a0)
  129.         beq .l12
  130.         cmpi.b #` `,(a0)+
  131.         bne .l2
  132.         Lea -1(a0),a2
  133. .l3:    suba.l a1,a2
  134.         move.l A0,NextArg
  135.         Copymem(a1,#Filename,a2)
  136.         Move.l a2,d0
  137.         rts
  138. .l10:   lea 1(a0),a1
  139.         movea.l a1,a0
  140.         bra .l22
  141. .l11:   move.l a0,a2
  142.         bra .l3
  143. .l12:   move.l a0,a2
  144.         bra .l3
  145. .l13:   moveq.l #0,d0
  146.         RTS
  147. .l22:   cmpi.b #`"`,(a0)
  148.         beq .l11
  149.         cmpi.b #$0a,(a0)
  150.         beq .l12
  151.         cmpi.b #$00,(a0)
  152.         beq .l12
  153.         lea 1(a0),a0
  154.         bne .l22
  155.  
  156. CountString2[a0]:
  157.         move.l a1,-(Sp)
  158.         move.l a0,a1
  159. .l1:    cmpi.b #$0a,(a1)
  160.         beq .l2
  161.         cmpi.b #",",(a1)
  162.         beq .l2
  163.         cmpi.b #" ",(a1)
  164.         beq .l2
  165.         cmpi.b #$00,(a1)+
  166.         bne .l1
  167.         lea -1(a1),a1
  168. .l2:    sub.l a0,a1
  169.         move.l a1,d0
  170.         move.l (sp)+,a1
  171.         RTS
  172.  
  173. ASC2Zahl[a5]:
  174.     {* IncVar: Potenz*}
  175.     Countstring2(a5)
  176.     move.l d0,d7
  177.     subq.l #2,d7
  178.     move.l #1,d0
  179.     cmpi.w #$FFFF,d7
  180.     beq .la
  181. .l0:mulu.l #10,d0
  182.     dbra d7,.l0
  183. .la:move.l d0,d6
  184.     moveq.l #0,d1
  185.     move.l a5,a0
  186.     move.b #"+",d5
  187. .l1:moveq.l #0,d0
  188.     move.b (A0)+,d0
  189.     cmpi.b #"-",d0
  190.     bne .l2
  191.     move.b d0,d5
  192.     Divs.l #10,d6
  193.     bra .l1
  194. .l2:subi.b #$30,d0
  195.     andi.l #$FF,d0
  196.     Muls.l d6,d0
  197.     divs.l #10,d6
  198.     add.l d0,d1
  199.     cmpi.l #0,d6
  200.     bne .l1
  201.     lea 1(a0),a0
  202. ;    move.l a0,NextArg
  203.     move.l d1,d0
  204.     cmpi.b #"+",d5
  205.     beq .l3
  206.     neg.l d0
  207. .l3:RTS
  208.  
  209.